home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 November / SGI Freeware 1999 November - Disc 1.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / SimpDlg.tcl.z / SimpDlg.tcl
Text File  |  1999-01-26  |  982b  |  43 lines
  1. # SimpDlg.tcl --
  2. #
  3. #    This file implements Simple Dialog widgets
  4. #
  5. # Copyright (c) 1996, Expert Interface Technologies
  6. #
  7. # See the file "license.terms" for information on usage and redistribution
  8. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  9. #
  10.  
  11. tixWidgetClass tixSimpleDialog {
  12.     -classname TixSimpleDialog
  13.     -superclass tixDialogShell
  14.     -method {}
  15.     -flag   {
  16.     -buttons -message -type
  17.     }
  18.     -configspec {
  19.     {-buttons buttons Buttons ""}
  20.     {-message message Message ""}
  21.     {-type type Type info}
  22.     }
  23. }
  24.  
  25. proc tixSimpleDialog:ConstructWidget {w} {
  26.     upvar #0 $w data
  27.  
  28.     tixChainMethod $w ConstructWidget
  29.  
  30.     frame $w.top
  31.  
  32.     label $w.top.icon -image [tix getimage $data(-type)]
  33.     label $w.top.message -text $data(-message)
  34.  
  35.     pack $w.top.icon    -side left -padx 20 -pady 50 -anchor c
  36.     pack $w.top.message -side left -padx 10 -pady 50 -anchor c
  37.  
  38.     frame $w.bot
  39.  
  40.     pack $w.bot -side bottom -fill x
  41.     pack $w.top -side top -expand yes -fill both
  42. }
  43.